home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 20
/
020.d81
/
control q
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
944b
|
36 lines
5 print"[147]";chr$(14)
10 open2,8,2,"control-q.msg":forx=0to1:get#2,a$:printa$;:x=st:nextx:close2
20 geta$:ifa$=""then20
30 printchr$(142):load"hello connect",8
100 print chr$(147):printtab(17)"ctrl-q"
110 print tab(11)"quote mode control"
120 print tab(9)"by bennett cookson jr."
130 print:print" ctrl-q to turn quote mode on and off"
200 sa=679
300 def fnh(d)=int(d/256)
305 def fnl(l)=l-fnh(l)*256
500 i=sa
510 read a:if a=256 then 700
520 poke i,a:i=i+1:goto 510
530 data 165,212,240,4,169,0,208,7
540 data 133,212,133,216,141,172,2,165
550 data 145,201,187,208,21,166,203,228
560 data 197,240,12,173,172,2,73,255
570 data 141,172,2,133,212,134,197,76
580 data 66,235,76,72,235,120,169,167
590 data 141,143,2,169,2,141,144,2
600 data 88,96,32,212,2,76,131,164,256
700 poke sa+47,fnl(sa)
710 poke sa+52,fnh(sa)
750 print:print"lock? (stop/restore won't distroy it)"
755 print" y or n"
760 get k$:if k$<>"y" and k$<>"n" then 760
770 if k$="n"then 850
800 poke 770,fnl(sa+58):rem lock
810 poke 771,fnh(sa+58)
850 sys(sa+45)
860 print:print"sys";sa+45;"to restart"
890 end
900 poke 770,131:rem remove lock
910 poke 771,164